For this exercise install geojsonio package : install.packages(“geojsonio”)

1 > Reading as sp

library(leaflet)
library(geojsonio)
## 
## Attaching package: 'geojsonio'
## The following object is masked from 'package:base':
## 
##     pretty
farms <- geojsonio::geojson_read("./bshr_sgmts.geojson", what = "sp")
# Or use the rgdal equivalent:
# farms <- rgdal::readOGR("./_12_DataVisualizationGisLeaflet/bshr_sgmts.geojson")

pal <- colorNumeric("RdBu", NULL)

m <- leaflet(data = farms, options = leafletOptions(maxZoom = 17)) %>%
  addProviderTiles(providers$Esri.WorldImagery) %>%
  addProviderTiles(providers$Stamen.TonerLines) %>%
  addProviderTiles(providers$Stamen.TonerLabels) %>%
  addPolygons(stroke = TRUE, weight = 1,
  opacity = 1,
  color = "white",
  dashArray = "3",
  fillOpacity = 0.7,
    fillColor = ~pal(FA_acre),
    label = farms$
    Farm_ID) %>%
  addLegend(pal = pal, values = ~FA_acre, opacity = 1.0)
m